home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tttdem51.zip
/
READDEM4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-01-31
|
264b
|
13 lines
Program ReadTTT5_Demo_4;
{used in manual figure 12.1}
Uses Crt,ReadTTT5;
var Choice : byte;
begin
Clrscr;
Read_Select(10,5,'How Good is The Toolkit? ',
'^Bloody_Awful Fair Good The_Best',
Choice);
end.